home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Clean 1.2.4 / PowerMacInterface / colors.icl < prev    next >
Encoding:
Modula Implementation  |  1995-02-15  |  205 b   |  8 lines  |  [TEXT/3PRM]
  1. implementation module colors;
  2.  
  3. import mac_types;
  4.  
  5. Index2Color :: !Int !Toolbox -> (!Int,!Int,!Int,!Toolbox);
  6. Index2Color index t = code (index=R6D0,t=O0D1U)(red=W,green=W,blue=W,z=Z){
  7.     call    .Index2Color
  8. };